home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CU Amiga Super CD-ROM 12
/
CU Amiga Magazine's Super CD-ROM 12 (1997)(EMAP Images)(GB)[!][issue 1997-07].iso
/
QuarterBack
/
Quarterback
/
Macros
/
Backup
< prev
next >
Wrap
Text File
|
1993-11-30
|
755b
|
38 lines
/* Backup specified volume (or prompt for volume if none given) */
/* This macro will perform a completely automated full backup */
Options Results
/* Get the volume name */
numParams = ARG()
If numParams > 0 Then Do
volName = ARG(1)
End
Else Do
RequestText "Please enter the disk or"||"0A"x||"drawer name to backup:"
If RC ~= 0 Then Exit
volName = result
If Length(volName) = 0 Then Exit
If Index(volName,":") = 0 Then
volName = volName||":"
End
If ~Exists(volName) Then Do
Request1 "The disk or drawer '"||volName||"'"||"0A"x||"does not exist."
Exit
End
/* Backup the volume */
SetBackupOptions Complete DisplayOptionsOff
Backup volName
If RC ~= 0 Then Do
Request1 "An error has occurred"||"0A"x||"during the backup."
Exit
End
Quit